home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.09 Sep 87 / forth source / fkey.R < prev    next >
Encoding:
Text File  |  1987-08-06  |  942 b   |  110 lines  |  [TEXT/EDIT]
  1. * File fkr.R
  2.  
  3. Mach2 Fkey
  4. FKEYQD15
  5.  
  6. Include Fkey.Text
  7.  
  8. Type DLOG
  9.    ,2000
  10. New Dialog
  11. 30 14 330 494
  12. visible goAway
  13. 1
  14. 0
  15. 2000
  16.  
  17.  
  18. Type DITL   
  19. ,2000
  20. 22
  21.  
  22. BtnItem
  23. 256 32 278 91
  24. OK
  25.  
  26. StaticText
  27. 256 136 286 463        
  28. Text FKEY © 1987 J. Langowski/MacTutor   Written in Mach2™ Forth
  29.  
  30. EditText Disabled
  31. 8 32 24 464
  32. Message 0
  33.  
  34. EditText Disabled
  35. 32 32 48 464
  36. Message 1
  37.  
  38. EditText Disabled
  39. 56 32 72 464
  40. Message 2
  41.  
  42. EditText Disabled
  43. 80 32 96 464
  44. Message 3
  45.  
  46. EditText Disabled
  47. 104 32 120 464
  48. Message 4
  49.  
  50. EditText Disabled
  51. 128 32 144 464
  52. Message 5
  53.  
  54. EditText Disabled
  55. 152 32 168 464
  56. Message 6
  57.  
  58. EditText Disabled
  59. 176 32 192 464
  60. Message 7
  61.  
  62. EditText Disabled
  63. 200 32 216 464
  64. Message 8
  65.  
  66. EditText Disabled
  67. 224 32 240 464
  68. Message 9
  69.         
  70. StatText
  71. 8 8 24 28
  72. 0
  73.  
  74. StatText
  75. 32 8 48 28
  76. 1
  77.  
  78. StatText
  79. 56 8 72 28
  80. 2
  81.  
  82. StatText
  83. 80 8 96 28
  84. 3
  85.  
  86. StatText
  87. 104 8 120 28
  88. 4
  89.  
  90. StatText
  91. 128 8 144 28
  92. 5
  93.  
  94. StatText
  95. 152 8 168 28
  96. 6
  97.  
  98. StatText
  99. 176 8 192 28
  100. 7
  101.  
  102. StatText
  103. 200 8 216 28
  104. 8
  105.  
  106. StatText
  107. 224 8 240 28
  108. 9
  109.  
  110.